MacPeople 1997 August 15/MACPEOPLE-1997-08-15.ISO.7z/MACPEOPLE-1997-08-15.ISO/アップル関連/Open Transport⁄PPP 1.0/CCL Disk/Modem CCLs/NEC AtermIT 57.6K/NEC AtermIT 57.6K

Text File | 1996-12-06 | 3KB | 227 lines

!
! "NEC IT 57.6KPPP  5/12/96"
!
@ORIGINATE
@ANSWER
!
! set up the serial port
!
pause 5
serreset 57600, 0, 8, 1
!
! reset the serial port
!
hsreset 0 0 0 0 0 0
settries 0
!
@LABEL 1
!
! set up the terminal adapter
!
matchclr
matchstr 1 2 "OK¥13¥10"
!
! Z    - reset parameters
!
write "ATZ¥13"
matchread 50
jump 59
!
@LABEL 2
matchclr
matchstr 1 3 "OK¥13¥10"
!
! &K3   - enable CTS/RTS Hardware flow control
! &D1   - regard DTR as ON
! E0    - turn command echo off
! Q0V1X3- return detailed result code
! $N1=0 - set Async mode
!
write "AT&K3&D1E0Q0V1X3$N1=0¥13"
matchread 30
inctries
iftries 2 59
!
DTRset
pause 5
DTRclear
pause 5
DTRset
flush
jump 1
!
! TA(terminal adapter) ready,so enable answering,or originate a call
!
@LABEL 3
note "AtermIT Ready"3
ifANSWER 30
!
! @ORIGINATE
!
@LABEL 4
note "Dialing ^1" 3
write "ATD^1¥13"
!
@LABEL 10
matchclr
matchstr  1 11 "CONNECT 64000¥13¥10"
matchstr  2 12 "CONNECT 2400¥13¥10"
matchstr  3 13 "CONNECT 4800¥13¥10"
matchstr  4 14 "CONNECT 9600¥13¥10"
matchstr  5 15 "CONNECT 14400¥13¥10"
matchstr  6 16 "CONNECT 19200¥13¥10"
matchstr  7 17 "CONNECT 28800¥13¥10"
matchstr  8 18 "CONNECT 38400¥13¥10"
matchstr  9 19 "CONNECT 57600¥13¥10"
matchstr 10 31 "RING¥13¥10"
matchstr 11 50 "NO CARRIER¥13¥10"
matchstr 12 51 "ERROR¥13¥10"
matchstr 13 53 "BUSY¥13¥10"
matchread 700
ifANSWER 10
jump 59
!
@LABEL 11
note "Communicating at 64000 bps" 3
! localized note "Communicating at 64000 bps" 3
jump 20
!
@LABEL 12
note "Communicating at 2400 bps" 3
! localized note "Communicating at 2400 bps" 3
jump 20
!
@LABEL 13
note "Communicating at 4800 bps" 3
! localized note "Communicating at 4800 bps" 3
jump 20
!
@LABEL 14
note "Communicating at 9600 bps" 3
! localized note "Communicating at 9600 bps" 3
jump 20
!
@LABEL 15
note "Communicating at 14400 bps" 3
! localized note "Communicating at 14400 bps" 3
jump 20
!
@LABEL 16
note "Communicating at 19200 bps" 3
! localized note "Communicating at 19200 bps" 3
jump 20
!
@LABEL 17
note "Communicating at 28800 bps" 3
! localized note "Communicating at 28800 bps" 3
jump 20
!
@LABEL 18
note "Communicating at 38400 bps" 3
! localized note "Communicating at 38400 bps" 3
jump 20
!
@LABEL 19
note "Communicating at 57600 bps" 3
! localized note "Communicating at 57600 bps" 3
jump 20
!
@LABEL 20
! turn on CTS handshaking
hsreset 0 1 0 0 0 0
!
ifANSWER 21
pause 30
!
@LABEL 21
exit 0
!
! @ANSWER
! Set up the TA to answer on first ring
!
@LABEL 30
!
@LABEL 31
ifORIGINATE 10
! claim the serial port
userhook 1
note "Answering incoming call" 3
write "ATA¥13"
jump 10
!
! error messages
!
! NO CARRIER
@LABEL 50
exit -6021
!
! ERROR
@LABEL 51
exit -6016
!
! BUSY
@LABEL 53
exit -6022
!
! TA Not Responding
@LABEL 59
exit -6019
!
! Hang up the TA
!
@HANGUP
@LABEL 60
settries 0
hsreset 0 0 0 0 0 0
!
@LABEL 61
!
! try to get control of the TA
!
DTRset
pause 5
DTRclear
flush
!
@LABEL 62
flush
matchclr
matchstr 1 64 "NO CARRIER¥13¥10"
matchstr 2 64 "OK¥13¥10"
matchstr 3 64 "ERROR¥13¥10"
write "ATH¥13"
matchread 30
inctries
iftries 3 59
DTRset
pause 5
DTRclear
pause 5
DTRset
flush
!
@LABEL 63
matchclr
matchstr 1 70 "OK¥13¥10"
write "+++"
matchread 15
jump 62
!
! reset parameters without serial dialing number,Self subscriber address,
!                          Self subscriber sub-address
!
@LABEL 64
pause 15
matchclr
matchstr 1 65 "OK¥13¥10"
write "ATZ1¥13"
matchread 30
jump 59
!
@LABEL 65
exit 0
!
@LABEL 70
pause 50
jump 62